home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V2D5.D64 / border scroll (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  945 b   |  33 lines
  1. 1 POKE53280,14:POKE53281,6:POKE646,14
  2. 5 A=A+1:IFA=1THENLOAD"A.CODE",8,1
  3. 10 SYS16384:CLR : REM 1ST ALWAYS
  4. 12 @3:"   [215]ELCOME TO [162][194][207][210][196][197][210] [211][195][210][207][204][204][162]   [212]HANKYOU [202]ASON FOR [162][194][207][210][196][197][210] [211][208][210][201][212][197][162]    "
  5. 14 PRINT"[147][194]ORDER [211]PRITE IS EASY TO USE, AND"
  6. 16 PRINT"ONCE YOU HAVE READ THE TEXT, THIS"
  7. 18 PRINT"SHORT PROGRAM WILL FAMILIARISE YOU"
  8. 20 PRINT"WITH THE COMMANDS AVAILABLE,"
  9. 22 PRINT"ENABLING YOU INCLUDE SCROLLING TEXTS"
  10. 24 PRINT"IN YOUR OWN PROGRAMS."
  11. 26 PRINT"[212]HE SCROLL CAN BE STOPPED"
  12. 28 GOSUB100:@0
  13. 30 PRINT"[210]ESTARTED"
  14. 32 GOSUB100:@3
  15. 34 PRINT"[212]HE COLOUR CAN BE CHANGED"
  16. 36 FORJ=0TO16:%J:FORK=0TO100:NEXTK,J
  17. 38 PRINT"  [212]HE MESSAGE CAN BE CHANGED":_
  18. 40 @15:" PRESS [211][208][193][195][197] [194][193][210]        ":&
  19. 42 FORJ=0TO200:GETA$:IFA$=" "THEN46
  20. 44 NEXT:GOTO40
  21. 46 _:" [200]APPY SCROLLING          ":@3
  22. 48 PRINT"[217]OU CAN INCREASE IT'S SPEED"
  23. 50 GOSUB100
  24. 52 FORJ=3TO15:@J:FORK=0TO100:NEXTK,J
  25. 54 PRINT"    [196]ECREASE IT"
  26. 56 GOSUB100
  27. 58 FORJ=15TO1STEP-1:@J:FORK=0TO150:NEXTK,J:&
  28. 60 END
  29. 65 :
  30. 100 POKE198,0:PRINT"[208]RESS SPACE BAR"
  31. 102 GETA$:IFA$<>" "THEN102
  32. 104 RETURN
  33.